perm filename MC1.FOT[1,DEK] blob
sn#853799 filedate 1988-02-24 generic text, type T, neo UTF8
t(z):=sum(n↑(n-1)*z↑n/factorial(n),n,1,inf);
N - 1 N
N Z
(D1) T(Z) := SUM(---------, N, 1, INF)
N!
(C2)
taylor(t(z),z,0,5);
HAYAT FASL 12 PS MACSYM being loaded
Loading done
3 4 5
2 3 Z 8 Z 125 Z
(D2)/T/ Z + Z + ---- + ---- + ------ + . . .
2 3 24
(C3)
ratcoeff(d2,z↑3);
3
(D3)/R/ -
2
(C4)
taylor((t(z)↑2-t(z)↑3/2)/(1-t(z))↑(3/2),z,0,5);
4 5
2 3 65 Z 259 Z
(D4)/T/ Z + 3 Z + ----- + ------ + . . .
8 12
(C5)
taylor(t(z)↑2/(1-t(z))↑(1/2),z,0,5);
3 4 5
2 5 Z 47 Z 667 Z
(D5)/T/ Z + ---- + ----- + ------ + . . .
2 8 48
(C6)
int(z,z,0,a);
(D6) INT(Z, Z, 0, A)
(C7)
integrate(z,z,0,a);
DEFINT FASL 11 PS MACSYM being loaded
Loading done
LIMIT FASL 3 PS MACSYM being loaded
Loading done
RESIDU FASL 12 PS MACSYM being loaded
Loading done
RPART FASL 12 PS MACSYM being loaded
Loading done
SIN FASL 12 PS MACSYM being loaded
Loading done
SININT FASL 12 PS MACSYM being loaded
Loading done
SCHATC FASL 12 PS MACSYM being loaded
Loading done
2
A
(D7) --
2
(C8)
d3;
3
(D8)/R/ -
2
(C9)
d4;
4 5
2 3 65 Z 259 Z
(D9)/T/ Z + 3 Z + ----- + ------ + . . .
8 12
(C10)
integrate(taylor(d4/t(z)/z,z,0,5),z,0,z);
4 3 2
271 Z + 148 Z + 96 Z + 96 Z
(D10) ------------------------------
96
(C11)
taylor(%*t(z)/(1-t(z)),z,0,4);
4
2 3 193 Z
(D11)/T/ Z + 3 Z + ------ + . . .
24
(C12)
diff(t*(1-t)↑(1/2),t);
T
(D12) SQRT(1 - T) - -------------
2 SQRT(1 - T)
(C13)
ratsimp(%*(1-t)↑(1/2));
3 T - 2
(D13) - -------
2
(C14)